PC Home 109/PC Home 109.iso/data1.cab/Program_Files/be006.dxr/00035.ls

Text File | 2001-03-02 | 500 b | 17 lines

on exitFrame
  set OriginalTick to the ticks
  set xStart to the locH of sprite 14
  set yStart to the locV of sprite 14
  repeat while (the locH of sprite 14 < 342) and (the locV of sprite 14 > 89)
    set x to integer(2.14999999999999991 * float(the ticks - OriginalTick))
    set y to integer(0.42999999999999999 * float(the ticks - OriginalTick))
    set the locH of sprite 14 to xStart + x
    set the locV of sprite 14 to yStart - y
    updateStage()
  end repeat
end

on mouseUp
  go(100)
end